inherited FEmpresaPermissao: TFEmpresaPermissao
  Left = 223
  Top = 160
  Caption = 'Permiss'#227'o de Acesso para a Empresa'
  ClientHeight = 287
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Height = 287
    object Label1: TLabel [0]
      Left = 12
      Top = 39
      Width = 41
      Height = 13
      Caption = 'Empresa'
    end
    object Label2: TLabel [1]
      Left = 169
      Top = 39
      Width = 35
      Height = 13
      Caption = 'Modulo'
    end
    object SBInsere1: TSpeedButton [2]
      Tag = 1
      Left = 231
      Top = 136
      Width = 23
      Height = 22
      Caption = '>'
      OnClick = SBInsere1Click
    end
    object SBInsereTudo: TSpeedButton [3]
      Tag = 1
      Left = 231
      Top = 97
      Width = 23
      Height = 22
      Caption = '>>'
      OnClick = SBInsereTudoClick
    end
    object SBRemove1: TSpeedButton [4]
      Tag = 1
      Left = 231
      Top = 173
      Width = 23
      Height = 22
      Caption = '<'
      OnClick = SBRemove1Click
    end
    object SBRemovetudo: TSpeedButton [5]
      Tag = 1
      Left = 231
      Top = 212
      Width = 23
      Height = 22
      Caption = '<<'
      OnClick = SBRemovetudoClick
    end
    object Label3: TLabel [6]
      Left = 12
      Top = 78
      Width = 76
      Height = 13
      Caption = 'Itens do Modulo'
    end
    object Label4: TLabel [7]
      Left = 262
      Top = 78
      Width = 72
      Height = 13
      Caption = 'Itens Liberados'
    end
    object Label5: TLabel [8]
      Left = 320
      Top = 39
      Width = 31
      Height = 13
      Caption = 'Senha'
    end
    inherited Panel2: TPanel
      inherited BtnIncluir: TBitBtn
        Visible = False
      end
      inherited BtnEditar: TBitBtn
        Left = 24
        Caption = '&Alterar'
      end
      inherited BtnSalvar: TBitBtn
        Left = 136
      end
      inherited BtnCancelar: TBitBtn
        Left = 248
      end
      inherited BtnExcluir: TBitBtn [4]
        Left = 283
        Visible = False
      end
      inherited BtnFechar: TBitBtn [5]
        Tag = 5
        Left = 384
      end
    end
    inherited Panel3: TPanel
      Top = 248
      inherited BtnConsuta: TBitBtn
        Left = 18
        Visible = False
      end
      inherited DBNavigator1: TDBNavigator
        DataSource = DSEmpresa
        Hints.Strings = ()
      end
    end
    object DBGrid1: TDBGrid
      Left = 12
      Top = 94
      Width = 212
      Height = 149
      DataSource = DSPermissao
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PER_DESCRICAO'
          Title.Caption = 'Descri'#231#227'o'
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 262
      Top = 94
      Width = 212
      Height = 149
      DataSource = DSUsuPerm
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PER_DESCRICAO'
          Title.Caption = 'Descri'#231#227'o'
          Visible = True
        end>
    end
    object RxDBLCEmpresa: TRxDBLookupCombo
      Tag = 1
      Left = 12
      Top = 55
      Width = 145
      Height = 21
      DropDownCount = 8
      LookupField = 'EMP_CODIGO'
      LookupDisplay = 'EMP_RAZAO'
      LookupSource = DSEmpresa
      TabOrder = 4
      OnChange = RxDBLCEmpresaChange
    end
    object RxDBLCModulo: TRxDBLookupCombo
      Left = 168
      Top = 55
      Width = 145
      Height = 21
      DropDownCount = 8
      LookupField = 'PER_MODULO'
      LookupDisplay = 'PER_MODULO'
      LookupSource = DSModulo
      TabOrder = 5
      OnChange = RxDBLCModuloChange
    end
    object MESenha: TMaskEdit
      Left = 320
      Top = 55
      Width = 152
      Height = 21
      CharCase = ecUpperCase
      TabOrder = 6
    end
  end
  object QEmpresa: TQuery
    AutoRefresh = True
    DatabaseName = 'base'
    SQL.Strings = (
      'select Emp_Codigo,Emp_Razao,Emp_CNPJ from Empresa'
      '')
    Left = 64
    Top = 42
  end
  object DSEmpresa: TDataSource
    DataSet = QEmpresa
    Left = 97
    Top = 42
  end
  object QPermissao: TQuery
    AutoRefresh = True
    DatabaseName = 'DBEmpresaPermissao'
    SQL.Strings = (
      'select  * from Permissao')
    Left = 112
    Top = 155
  end
  object DSPermissao: TDataSource
    DataSet = QPermissao
    Left = 144
    Top = 155
  end
  object QEmpPermissao: TQuery
    AutoRefresh = True
    DatabaseName = 'DBEmpresaPermissao'
    DataSource = DSPermissao
    SQL.Strings = (
      
        'select Emp_Per_Permissao,Per_descricao from EmpresaPermissao lef' +
        't join Permissao  on Emp_Per_Permissao =  Per_Codigo  ;')
    Left = 304
    Top = 171
  end
  object DSUsuPerm: TDataSource
    DataSet = QEmpPermissao
    Left = 336
    Top = 171
  end
  object QAux: TQuery
    DatabaseName = 'DBEmpresaPermissao'
    SQL.Strings = (
      'Select * from Permissao')
    Left = 384
    Top = 120
  end
  object DSModulo: TDataSource
    DataSet = QModulo
    Left = 256
    Top = 59
  end
  object QModulo: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select distinct Per_Modulo From permissao')
    Left = 224
    Top = 56
  end
  object DBEmpPermissao: TDatabase
    AliasName = 'Gestao'
    DatabaseName = 'DBEmpresaPermissao'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=SYSDBA'
      'PASSWORD=masterkey')
    SessionName = 'Default'
    Left = 136
    Top = 40
  end
  object QAux2: TQuery
    DatabaseName = 'DBEmpresaPermissao'
    RequestLive = True
    SQL.Strings = (
      'select Emp_Per_Permissao from EmpresaPermissao')
    Left = 384
    Top = 168
  end
end
